home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / AmigaTalk_X / testfiles / TestGadget < prev    next >
Encoding:
Text File  |  2002-03-13  |  1017 b   |  56 lines
  1. scr <- Screen new
  2. scr setScreenModeID: 16r40D20001
  3. scr            open: 'TestScreen'
  4.  
  5. win <- Window new: 'TestWindow'
  6.  
  7. win setFlags:       16r100F
  8. win setIDCMPFlags:  16r340
  9. win openOnScreen:   scr
  10.  
  11. scr screenToFront
  12.  
  13. crs <- Colors new: win
  14.  
  15. crs  makeColorMap: 16
  16. crs  loadColors:   16 from: 'Amigatalk:AmigaTalk.colors'
  17.  
  18. btxt <- IText new: 'Test Gadget:'
  19.  
  20. width <- (btxt getTextLength) + 30
  21. bdr   <- Rectangle new
  22.  
  23. bdr makeRectangleFrom: 300 @ 80 to: width @ 20
  24.  
  25. btxt setPens:           3 @ 2
  26. btxt setITextOrigin: -125 @ 2
  27.  
  28. bgad <- BoolGadget new
  29.  
  30. bgad setGadgetID:     0
  31. bgad setGadgetText:   btxt
  32. bgad setStartPoint:   300 @ 80
  33. bgad setGadgetSizeTo: width @ 20
  34. bgad setRender:       bdr
  35. bgad setSelect:       bdr
  36.  
  37. win  addGadget: bgad
  38. win  refreshGadgets
  39.  
  40. itxt <- IText new: 'Press the Gadget to end test!'
  41.  
  42. itxt setPens:           5 @ 2
  43. itxt setITextOrigin:  100 @ 120
  44. itxt setDrawMode:     4
  45.  
  46. win  printIText: itxt at: 30 @ 20
  47.  
  48. win  handleIntuition
  49.  
  50. itxt dispose
  51. btxt dispose
  52. bgad dispose
  53.  
  54. win  close
  55. scr  close
  56.